home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2001 March / macformat-101.iso / mac / MacFormat Data / MacFormat / 00001.ls next >
Encoding:
Text File  |  2001-01-25  |  802 b   |  33 lines
  1. on startMovie
  2.   global gAdvertCounter, gAdvert, gAdvertTotal, gAdvertDelay, gMFCDNo, gthebootvol
  3.   installMenu("menuList")
  4.   set the centerStage to 1
  5.   gAdvertTotal = the number of castMembers of castLib "Advert"
  6.   gMFCDNo = "MacFormat CD 101"
  7.   gAdvertCounter = 0
  8.   gAdvert = random(gAdvertTotal)
  9.   gAdvertDelay = 200
  10.   AdChange()
  11.   red = getOSDirectory()
  12.   repeat with count = 1 to length(red)
  13.     if char count of red = ":" then
  14.       gthebootvol = char 1 to count of red
  15.       exit
  16.     end if
  17.   end repeat
  18. end
  19.  
  20. on AdChange
  21.   global gAdvertCounter, gAdvert, gAdvertTotal
  22.   if gAdvert = gAdvertTotal then
  23.     gAdvert = 1
  24.   else
  25.     if gAdvert < gAdvertTotal then
  26.       gAdvert = gAdvert + 1
  27.     end if
  28.   end if
  29.   sprite(50).member = member(gAdvert, "Advert")
  30.   updateStage()
  31.   gAdvertCounter = 0
  32. end
  33.